library("ROAuth")
library("twitteR")

requestURL = "http://api.twitter.com/oauth/request_token"
accessURL =  "http://api.twitter.com/oauth/access_token"
authURL =    "http://api.twitter.com/oauth/authorize"
consumerKey = "QXBmZdXTIqCiyLuwn4IjAw"
consumerSecret = "CP2BU8UDpSs4bM4kHplyGNED8B8CPRG62HVqDimfA"
twitCred <- OAuthFactory$new(consumerKey=consumerKey,
                                    consumerSecret=consumerSecret,
                                    requestURL=requestURL,
                                    accessURL=accessURL,
                                    authURL=authURL)
twitCred$handshake()
registerTwitterOAuth(twitCred)

